home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd1.bin / Software / Servis / X-setup / _SETUP.1 / XQ Startmenu Items 3.xpl < prev    next >
Text File  |  1999-06-13  |  2KB  |  79 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Start menu\Visible Items"
  5. "NAME"="Visible Items in Start->Settings"
  6. "VERSION"="1.1"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show Control Panel and Printers"
  9. "TEXT 2"="Show "Folder options" item"
  10. "TEXT 3"="Show "Taskbar options" item"
  11. "TEXT 4"="Show "ActiveDesktop options" item"
  12. "DESCRIPTION 1"="This plug-in allows you to change which items are displayed in Start -> Settings."
  13. "DESCRIPTION 2"="NOTE: Disabling "Control Panel and Printers" will also disable WINDOWS+E to start the Explorer."
  14. "AUTHOR"="Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  17. "COMMENT 2"="Thanks to Ray Li (rayli@email.com) for spotting the WINDOWS+E effect."
  18.  
  19.  
  20. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  21. sV1="NoSetFolders" 'DW
  22. sV2="NoFolderOptions" 'DW
  23. sV3="NoSetTaskbar" 'DW
  24. sV4="NoSetActiveDesktop" 'DW
  25.  
  26. SUB Plugin_Initialize 
  27.  'i=RegReadValue(sp&sV1)  
  28.  'if IsEmpty(i) or i=0 then SetUIElement 1,true 
  29.  
  30.  Call myReadItem(sV1,1)
  31.  Call myReadItem(sV2,2)
  32.  Call myReadItem(sV3,3)
  33.  Call myReadItem(sV4,4)
  34. END SUB
  35.  
  36. 'Called when the Plugin should validate the Data the user has entered
  37. SUB Plugin_CheckData(ElementIndex)
  38. END SUB
  39.  
  40. 'Called when the Plugin should apply the changes
  41. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  42.  'b=GetUIElement(1)
  43.  'if b=true then
  44.  '   Call RegWriteValue(sp&sV1,0,2)
  45.  'else
  46.  '   Call RegWriteValue(sp&sV1,1,2)
  47.  'end if
  48.  
  49.  Call myWriteItem(sV1,1)
  50.  Call myWriteItem(sV2,2)
  51.  Call myWriteItem(sV3,3)
  52.  Call myWriteItem(sV4,4)
  53.  
  54.  
  55.  Call Logoff
  56. END SUB
  57.  
  58. 'Called when the Plugin is about to be removed from memory
  59. SUB Plugin_Terminate
  60. END SUB
  61.  
  62.  
  63. Sub myReadItem(itmReg,ui)
  64.  i=RegReadValue(sp&itmReg)  
  65.  if IsEmpty(i) or i=0 then 
  66.     Call SetUIElement(ui,true)
  67.  end if
  68. End Sub
  69.  
  70. Sub myWriteItem(itmReg,ui)
  71.  if GetUIElement(ui)=true then
  72.     Call RegWriteValue(sp&itmReg,0,2)
  73.  else
  74.     Call RegWriteValue(sp&itmReg,1,2)
  75.  end if
  76. End sub
  77.  
  78.  
  79.